home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / pswdprot / main.frm < prev    next >
Text File  |  1995-05-07  |  3KB  |  122 lines
  1. VERSION 2.00
  2. Begin Form Mainfrm 
  3.    BackColor       =   &H00000000&
  4.    BorderStyle     =   0  'None
  5.    ClientHeight    =   5760
  6.    ClientLeft      =   1995
  7.    ClientTop       =   2760
  8.    ClientWidth     =   8730
  9.    ControlBox      =   0   'False
  10.    Height          =   6165
  11.    Left            =   1935
  12.    LinkTopic       =   "Form1"
  13.    MaxButton       =   0   'False
  14.    MinButton       =   0   'False
  15.    ScaleHeight     =   384
  16.    ScaleMode       =   3  'Pixel
  17.    ScaleWidth      =   582
  18.    Top             =   2415
  19.    Visible         =   0   'False
  20.    Width           =   8850
  21.    WindowState     =   2  'Maximized
  22.    Begin Timer Timer1 
  23.       Interval        =   600
  24.       Left            =   600
  25.       Top             =   5280
  26.    End
  27.    Begin Image PICT 
  28.       Height          =   2775
  29.       Left            =   2520
  30.       Top             =   360
  31.       Width           =   2415
  32.    End
  33. End
  34.  
  35. Sub Form_KeyPress (KeyAscii As Integer)
  36. All_Done
  37. End Sub
  38.  
  39. Sub Form_Load ()
  40. mousecnt = 0
  41. time_cnt = 1
  42. FIRST_TIME = True
  43. PasswordDslyd = 0
  44.  
  45. result% = 0
  46. While (result% >= 0)
  47.    result% = showcursor(False)
  48. Wend
  49.  
  50. a$ = Space$(3)
  51. result% = GetPrivateProfileString("PWSAMPLE", "Timer Set", " ", a$, 3, "CONTROL.INI")
  52. time_set = Val(a$)
  53. If (result% = 0) Then
  54.    time_set = 1
  55. End If
  56.  
  57. a$ = Space$(3)
  58. result% = GetPrivateProfileString("PWSAMPLE", "PWProtected", "N", a$, 3, "CONTROL.INI")
  59. PWProtected = a$
  60. If (result% = 0) Then
  61.    PWProtected = "N"
  62. End If
  63.  
  64. Randomize
  65. PICT.Visible = False
  66. PICT.Top = 0
  67. PICT.Left = 0
  68.  
  69. PICT.Picture = LoadPicture("C:\WINDOWS\ARCHES.BMP")
  70. PICT.Visible = True
  71. End Sub
  72.  
  73. Sub Form_MouseMove (Button As Integer, Shift As Integer, X As Single, Y As Single)
  74. If (FIRST_TIME) Then
  75.    OLDX = X
  76.    OLDY = Y
  77.    FIRST_TIME = False
  78. Else
  79.    If (OLDX <> X) Or (OLDY <> Y) Then
  80.       All_Done
  81.    End If
  82. End If
  83. End Sub
  84.  
  85. Sub pict_MouseMove (Button As Integer, Shift As Integer, X As Single, Y As Single)
  86. If (FIRST_TIME) Then
  87.    OLDX = X
  88.    OLDY = Y
  89.    FIRST_TIME = False
  90. Else
  91.    If (OLDX <> X) Or (OLDY <> Y) Then
  92.       All_Done
  93.    End If
  94. End If
  95. End Sub
  96.  
  97. Sub Picture1_Click ()
  98. End
  99. End Sub
  100.  
  101. Sub Timer1_Timer ()
  102. On Error Resume Next
  103. If (time_cnt >= time_set) Then
  104.     tmp = Int(800 * Rnd)
  105.     If (tmp > SCREEN.Width - PICT.Width) Then
  106.         PICT.Left = SCREEN.Width - PICT.Width
  107.     Else
  108.         PICT.Left = tmp
  109.     End If
  110.     tmp = Int(600 * Rnd)
  111.     If (tmp > SCREEN.Height - PICT.Height) Then
  112.         PICT.Top = SCREEN.Height - PICT.Height
  113.     Else
  114.         PICT.Top = tmp
  115.     End If
  116.     time_cnt = 1
  117. Else
  118.     time_cnt = time_cnt + 1
  119. End If
  120. End Sub
  121.  
  122.